rm(list=ls(all=T))
Sys.setlocale("LC_TIME","C")
## [1] "C"
pacman::p_load(magrittr, readr, caTools, ggplot2, dplyr)
setwd('/Users/yao/Desktop')
Ta_feng = read_csv("ta_feng_all_months_merged.csv") %>% data.frame
## Parsed with column specification:
## cols(
## TRANSACTION_DT = col_character(),
## CUSTOMER_ID = col_character(),
## AGE_GROUP = col_character(),
## PIN_CODE = col_character(),
## PRODUCT_SUBCLASS = col_double(),
## PRODUCT_ID = col_character(),
## AMOUNT = col_double(),
## ASSET = col_double(),
## SALES_PRICE = col_double()
## )
nrow(Ta_feng)
## [1] 817741
Ta_feng$TRANSACTION_DT = as.Date(Ta_feng$TRANSACTION_DT, format="%m/%d/%Y")
Ta_feng$Y = format(Ta_feng$TRANSACTION_DT, "%Y")
Ta_feng$m = format(Ta_feng$TRANSACTION_DT, "%m")
Ta_feng$d = format(Ta_feng$TRANSACTION_DT, "%d")
Z <- data.frame(factor(Ta_feng$Y), factor(Ta_feng$m), factor(Ta_feng$d), Ta_feng$CUSTOMER_ID, Ta_feng$AGE_GROUP, Ta_feng$PIN_CODE, factor(Ta_feng$PRODUCT_SUBCLASS),Ta_feng$PRODUCT_ID, Ta_feng$AMOUNT, Ta_feng$ASSET, Ta_feng$SALES_PRICE)
colnames(Z) <- c('Y', 'm', 'd', 'CUSTOMER_ID', 'AGE_GROUP', 'PIN_CODE', 'PRODUCT_SUBCLASS','PRODUCT_ID', 'AMOUNT', 'ASSET', 'SALES_PRICE')
Z$AGE_GROUP[is.na(Z$AGE_GROUP)] = "na"
## Warning in `[<-.factor`(`*tmp*`, is.na(Z$AGE_GROUP), value =
## structure(c(7L, : invalid factor level, NA generated
Z$AGE_GROUP = factor(Z$AGE_GROUP, levels=c(
"<25","25-29","30-34","35-39","40-44","45-49","50-54","55-59","60-64",">65","na"), labels=c(
"1","2","3","4","5","6","7","8","9","10","na"
)) %>% as.character
Z <- na.omit(Z)
summary(Z)
## Y m d CUSTOMER_ID
## 2000:390725 01:210989 22 : 33640 00020459: 1246
## 2001:404654 02:193665 17 : 33284 02112589: 879
## 11:217494 14 : 32426 02112596: 822
## 12:173231 18 : 32182 02113579: 776
## 10 : 31974 01847994: 754
## 21 : 31812 00426053: 596
## (Other):600061 (Other) :790306
## AGE_GROUP PIN_CODE PRODUCT_SUBCLASS
## Length:795379 115 :309761 100205 : 19870
## Class :character 221 :243978 120103 : 14753
## Mode :character Others : 71327 110401 : 12673
## 110 : 70954 110411 : 12400
## 114 : 38282 130206 : 11632
## Unknown: 24612 130315 : 11472
## (Other): 36465 (Other):712579
## PRODUCT_ID AMOUNT ASSET
## 4714981010038: 8207 Min. : 1.000 Min. : 0.0
## 4711271000014: 6005 1st Qu.: 1.000 1st Qu.: 35.0
## 4719090900065: 2392 Median : 1.000 Median : 62.0
## 4711080010112: 2181 Mean : 1.383 Mean : 112.2
## 4710114128038: 2116 3rd Qu.: 1.000 3rd Qu.: 112.0
## 4710265849066: 1962 Max. :1200.000 Max. :432000.0
## (Other) :772516
## SALES_PRICE
## Min. : 1
## 1st Qu.: 42
## Median : 76
## Mean : 132
## 3rd Qu.: 132
## Max. :444000
##
del <- which(Z$PIN_CODE == "Unknown")
Z[del,]
Z <- Z[-del,]
Z
class(Z$PRODUCT_SUBCLASS)
## [1] "factor"
table(Z$PRODUCT_SUBCLASS)
##
## 100101 100102 100103 100104 100105 100106 100107 100108 100109 100110
## 1392 7980 1914 1273 409 2815 266 1192 1153 2280
## 100111 100112 100113 100201 100202 100203 100204 100205 100206 100207
## 652 1080 813 7884 2400 1246 1045 19260 1060 1406
## 100208 100209 100210 100211 100212 100213 100214 100215 100216 100217
## 1392 1050 2268 304 1371 1423 94 1026 631 2152
## 100218 100301 100302 100303 100304 100305 100306 100307 100308 100309
## 1928 4650 1255 3418 2123 2058 1816 2009 1118 733
## 100310 100311 100312 100313 100314 100315 100316 100317 100318 100319
## 2295 3555 9306 79 1982 330 5 229 183 1618
## 100320 100321 100322 100323 100324 100325 100401 100402 100403 100405
## 122 99 1014 3789 2292 1267 3187 1836 1802 1271
## 100406 100407 100408 100409 100410 100411 100413 100414 100415 100416
## 834 1872 513 128 58 22 2435 3492 49 1237
## 100417 100418 100419 100420 100421 100422 100423 100424 100425 100426
## 22 1864 1150 139 171 549 333 294 23 106
## 100427 100428 100429 100430 100431 100432 100433 100434 100436 100437
## 181 170 87 34 1585 343 138 88 398 33
## 100438 100439 100440 100441 100442 100443 100444 100501 100502 100503
## 542 51 1239 45 14 1363 345 45 204 2862
## 100504 100505 100506 100507 100508 100509 100510 100511 100512 100513
## 1224 8407 77 5613 2441 1222 2393 2276 878 936
## 100514 100515 100516 100517 100601 100602 100603 100604 100605 100606
## 375 2436 1565 1663 496 28 172 161 440 15
## 100607 100608 100609 100610 100611 100612 100613 100614 110102 110103
## 7 149 59 60 27 57 115 70 1736 1443
## 110105 110106 110107 110108 110109 110110 110111 110112 110113 110114
## 3548 7596 1554 2772 2239 1013 90 1618 200 835
## 110115 110116 110117 110118 110119 110120 110121 110122 110123 110124
## 1277 855 7205 1936 2230 291 1029 1634 1037 278
## 110125 110126 110127 110128 110129 110131 110132 110133 110134 110135
## 167 232 493 38 169 816 63 925 13 220
## 110136 110137 110138 110142 110201 110202 110203 110204 110205 110206
## 5608 1346 730 51 1340 554 154 222 126 73
## 110207 110208 110209 110210 110211 110212 110213 110214 110215 110217
## 1307 1141 287 62 139 59 14 57 103 10453
## 110218 110305 110306 110307 110308 110309 110310 110311 110312 110313
## 558 1580 70 71 74 35 12 32 66 220
## 110314 110316 110317 110318 110322 110323 110326 110327 110331 110332
## 25 15 17 16 210 129 9 107 35 349
## 110333 110334 110335 110336 110338 110401 110402 110403 110404 110405
## 647 310 15 175 64 12334 2675 2337 3031 2273
## 110406 110407 110408 110409 110410 110411 110412 110501 110502 110503
## 2010 2105 130 1120 1742 11915 127 2474 1139 268
## 110504 110505 110506 110507 110508 110509 110510 110511 110512 110513
## 3232 1979 1861 5879 2927 1176 415 718 46 575
## 110514 110515 110516 110517 110518 110601 110602 110603 110604 110605
## 85 767 356 570 1000 344 290 1644 365 403
## 110701 110702 110703 110704 110705 110706 110707 110709 110710 110711
## 87 37 65 14 56 27 114 1 4 10
## 110712 110713 110714 110715 110716 110801 110802 110804 110805 110806
## 3 25 12 122 10 177 70 673 885 96
## 110807 110808 110809 110810 110811 110812 110814 110815 110816 120101
## 106 33 97 1119 863 234 362 280 136 3380
## 120102 120103 120104 120105 120106 120107 120108 120109 120110 120111
## 464 14295 1618 3793 4451 1705 1841 1494 1480 12
## 120112 120113 120115 120201 120202 120203 120204 120205 120208 120301
## 1646 35 1561 76 158 1503 431 160 151 112
## 120302 120303 120304 120305 120306 120307 120308 130101 130102 130103
## 513 53 19 365 17 4 26 3260 2959 965
## 130104 130105 130106 130107 130108 130109 130110 130111 130112 130113
## 37 404 7266 858 857 720 2304 625 273 171
## 130201 130202 130203 130204 130205 130206 130207 130208 130301 130302
## 3638 368 1482 10203 5666 11262 946 2981 47 986
## 130303 130304 130305 130306 130307 130308 130309 130310 130313 130314
## 462 1326 1681 1288 537 2333 1000 210 1280 162
## 130315 130316 130317 130401 130402 130403 130404 130405 130407 140803
## 11118 1074 1356 2415 1194 144 690 329 67 146
## 300101 300102 300103 300104 300105 300106 300107 300109 300110 300111
## 217 198 74 110 68 98 137 57 7 51
## 300112 300113 300114 300115 300116 300117 300118 300121 300201 300202
## 42 213 12 520 14 54 45 27 82 21
## 300203 300205 300206 300207 300208 300209 300210 300301 300302 300303
## 47 21 75 29 16 51 66 1323 11 96
## 300304 300305 300307 300408 300409 300410 300411 300412 300413 300414
## 7 12 230 245 20 44 26 5 2 20
## 300416 300417 300418 300420 300422 300423 300424 300425 300426 300427
## 214 9 416 4 873 614 1126 4 12 11
## 300428 300501 300502 300503 300504 300507 300601 300602 300603 300604
## 38 16 54 2 80 18 26 155 62 553
## 300605 300606 300607 300608 300609 300610 300611 300612 300613 300614
## 160 89 13 61 55 62 48 45 64 102
## 300701 300702 300703 300704 300705 300706 300707 300708 300709 300711
## 237 489 295 448 34 43 82 25 1024 738
## 300712 300713 300714 300716 300801 300802 300803 300804 300805 300806
## 1437 104 111 711 332 120 4 9 25 18
## 300807 300808 300904 300905 301002 320101 320102 320103 320104 320106
## 46 65 5 12 1 148 46 207 551 15
## 320107 320108 320201 320202 320203 320204 320205 320206 320301 320303
## 194 553 1037 540 218 37 92 260 15 2
## 320304 320306 320308 320309 320310 320401 320402 320403 320404 320405
## 41 11 200 7 152 39 1095 183 40 2
## 320406 320407 320408 320409 320410 320411 320501 320502 320503 320506
## 8 152 51 2 1 166 1376 18 68 23
## 320507 320508 320509 320510 320601 320602 320606 320703 320704 320801
## 146 3 389 36 1 7 9 1 45 56
## 320803 320804 320903 320904 321003 321004 321101 321102 321103 321203
## 8 75 10 2 58 5 133 21 9 17
## 321301 321302 321303 321304 321305 321307 321308 340101 470101 470102
## 501 290 143 129 179 99 48 35 214 203
## 470103 470105 470106 470107 470108 470109 470110 470201 470202 470203
## 467 554 354 44 2 103 42 28 209 66
## 470204 470205 470206 470207 470208 470209 470210 470211 470212 470213
## 4 144 141 411 29 3 135 26 6 5
## 470301 470302 470305 470307 470401 470402 470403 470404 470405 470406
## 8 1 1 5 71 68 3 71 2 2
## 470501 470502 470504 470505 470601 470602 470603 470604 470606 470607
## 23 14 29 3 28 27 3 9 2 1
## 470609 470610 470611 470612 470613 470701 470702 500101 500102 500103
## 46 5 100 18 10 5 38 760 2465 503
## 500105 500106 500107 500108 500109 500110 500111 500112 500115 500117
## 869 316 54 408 182 42 71 410 92 11
## 500118 500119 500201 500202 500203 500204 500205 500206 500207 500208
## 14 20 10784 4483 3624 158 647 1546 854 2142
## 500209 500210 500211 500212 500301 500302 500303 500304 500305 500306
## 316 5942 8 658 1827 1337 2076 315 1506 379
## 500307 500308 500309 500310 500311 500312 500313 500315 500316 500317
## 2031 63 506 56 1844 7 107 4 72 360
## 500318 500319 500320 500321 500322 500323 500325 500326 500332 500333
## 408 321 75 9 25 77 103 26 36 114
## 500334 500335 500339 500341 500343 500344 500345 500346 500347 500348
## 3 17 21 3 16 21 22 10 5 1
## 500349 500402 500403 500404 500405 500406 500407 500408 500409 500412
## 4 158 139 40 206 50 83 233 7 2
## 500414 500416 500417 500418 500419 500501 500502 500503 500504 500506
## 71 24 6 78 5 1119 210 134 13 74
## 500509 500510 500511 500513 500514 500515 500516 500517 500518 500520
## 535 260 41 0 12 43 60 4 78 35
## 500521 500525 500526 500527 500529 500531 500534 500535 500537 500538
## 63 1 27 10 14 105 130 464 42 418
## 500539 500540 500541 500542 500544 500545 500546 500547 500548 500549
## 45 71 7 225 134 14 16 4 31 2
## 500553 500554 500555 500556 500558 500559 500560 500561 500562 500564
## 8 49 15 16 11 100 18 68 26 34
## 500601 500602 500603 500604 500605 500606 500608 500609 500701 500702
## 108 48 69 100 17 8 30 26 79 57
## 500703 500705 500707 500708 500709 500711 500802 500803 500804 500805
## 94 629 153 14 220 63 309 885 4108 445
## 500806 500807 500808 500810 500811 500901 500902 500903 500905 501001
## 591 263 7 2 59 530 3 1126 55 1149
## 501002 501003 501004 501005 501101 501102 501103 501104 501105 501106
## 1322 234 6 97 35 124 32 54 48 12
## 501107 501108 501109 501110 501112 501114 501115 501116 501117 501118
## 40 1 13 20 2 7 8 15 5 19
## 501119 501120 501122 501123 501124 501125 501126 501127 501128 501129
## 3 30 17 19 8 90 1 9 3 76
## 501130 501131 501132 501133 501134 501135 501136 510101 510103 510104
## 3 218 30 14 41 5 17 174 107 149
## 510105 510108 510109 510110 510113 510114 510116 510117 510118 510119
## 82 156 187 143 173 56 67 3 51 25
## 510120 510121 510122 510123 510124 510201 510202 510204 510205 510301
## 55 11 4 4 242 154 43 11 19 64
## 510302 510303 510304 510305 510306 510308 510309 510310 510311 510312
## 90 20 48 14 1 9 1 10 12 74
## 510313 510314 510315 510316 510317 510318 510319 510321 510322 510325
## 65 69 85 30 73 76 102 20 30 42
## 510326 510327 510328 510329 510401 510402 510403 510404 510407 510408
## 129 73 1 44 130 56 1 5 132 36
## 510409 510410 510411 510412 510413 510414 510415 510416 510417 510418
## 4 8 90 130 48 10 31 1 83 97
## 510419 510420 510422 510424 510425 510427 510428 510501 510502 510503
## 28 5 9 10 27 73 407 248 24 12
## 510505 510506 510507 510508 510510 510512 510513 510515 510518 510519
## 42 83 17 10 29 187 26 14 4 13
## 510521 510522 510524 510525 510526 510527 510529 510530 510531 510532
## 4 54 65 110 2 185 26 78 5 16
## 510533 510535 510538 510539 510607 520101 520102 520103 520105 520107
## 9 30 77 770 5 221 417 15 38 97
## 520108 520111 520112 520113 520114 520115 520116 520119 520120 520121
## 38 3 32 44 33 7 8 71 85 102
## 520122 520123 520124 520125 520126 520133 520134 520135 520137 520139
## 77 84 16 74 493 501 32 23 270 69
## 520141 520142 520144 520201 520202 520203 520204 520205 520206 520208
## 28 10 457 173 99 131 158 42 164 146
## 520209 520210 520211 520213 520215 520220 520221 520222 520226 520227
## 84 77 14 29 5 33 66 100 17 121
## 520228 520230 520231 520232 520234 520301 520302 520303 520304 520305
## 233 211 110 142 206 6 15 4 29 28
## 520308 520309 520310 520311 520314 520316 520317 520319 520320 520321
## 179 184 31 103 297 116 42 84 70 5
## 520322 520324 520325 520327 520328 520401 520402 520403 520404 520405
## 11 57 94 22 788 168 425 8 1 54
## 520406 520407 520409 520410 520414 520415 520417 520419 520420 520422
## 33 1 8 14 299 12 37 58 176 17
## 520423 520424 520425 520426 520431 520433 520434 520436 520437 520440
## 138 882 1151 17 14 499 1 165 764 56
## 520441 520442 520443 520444 520446 520448 520452 520457 520459 520460
## 29 67 230 5 112 74 399 2314 4 23
## 520463 520464 520465 520466 520469 520470 520471 520472 520473 520501
## 6 297 136 22 546 79 28 863 1080 129
## 520502 520503 520504 520505 520508 520509 520510 530101 530102 530103
## 253 274 270 132 607 36 221 10003 152 3375
## 530104 530105 530106 530107 530108 530109 530110 530111 530112 530113
## 3236 6036 228 229 752 504 5588 1158 1209 31
## 530114 530116 530117 530119 530120 530122 530123 530125 530126 530130
## 4030 2248 180 402 341 2 69 416 514 14
## 530132 530133 530201 530202 530203 530204 530205 530206 530207 530208
## 4 2 276 531 206 449 2215 567 425 122
## 530209 530210 530211 530212 530213 530215 530217 530219 530220 530221
## 3012 4 666 332 69 430 11 118 697 102
## 530222 530223 530225 530226 530227 530228 530301 530302 530303 530304
## 457 4 56 7 160 24 3330 2483 278 8
## 530401 530402 530403 530404 530405 530406 530407 530408 530409 530410
## 697 198 3694 3682 1988 2435 1521 2064 44 107
## 530411 530412 530414 530501 530502 530503 530504 530505 530506 530601
## 123 516 4 768 563 276 276 1103 19 697
## 530602 530603 530604 530605 530606 540101 540102 540103 540104 540107
## 285 474 36 41 10 123 4 64 140 27
## 540108 540109 540110 540112 540113 540114 540115 540116 540117 540119
## 12 13 51 63 36 4 6 14 78 22
## 540201 540202 540203 540204 540205 540206 540207 540209 540210 540211
## 122 16 141 79 11 245 24 535 56 11
## 540212 540213 540214 540215 540216 540217 540218 540219 540220 540222
## 44 72 18 140 24 98 147 60 2 162
## 540223 540224 540226 540228 540301 540306 540309 540310 540407 540408
## 16 47 8 19 8 2 23 2 2 8
## 540601 540602 540604 540605 540606 540607 540608 540609 540610 540611
## 121 14 18 171 95 48 17 185 7 22
## 540612 540613 540615 540616 540617 550104 550302 550502 550508 550612
## 26 114 34 5 124 1 1 2 1 1
## 550703 550716 550718 560101 560102 560103 560104 560106 560107 560108
## 1 1 1 134 762 352 1284 262 369 5
## 560109 560110 560111 560112 560113 560116 560117 560201 560204 560301
## 350 42 3 22 36 24 299 7389 2640 23
## 560302 560303 560304 560305 560306 560307 560308 560309 560310 560311
## 23 3 56 2 91 130 37 198 8 158
## 560312 560314 560316 560317 560321 560322 560323 560324 560325 560326
## 46 16 122 53 7 274 15 34 16 1
## 560327 560328 560329 560330 560333 560334 560335 560336 560337 560338
## 60 70 144 159 79 458 512 1231 137 1
## 560339 560340 560341 560342 560343 560344 560345 560346 560348 560349
## 452 13 43 7 48 12 25 1 21 38
## 560350 560351 560356 560357 560358 560359 560360 560401 560402 560403
## 63 76 71 56 41 14 15 1339 4810 850
## 560404 560405 560406 560407 560408 560409 560502 560504 560507 560509
## 68 2106 519 15 191 77 15 64 8 11
## 560513 560515 560516 560517 560518 570101 570102 570103 570104 570105
## 5 5 7 323 51 9 388 371 17 2
## 570106 570107 570108 570201 570202 570204 570205 570206 570210 570211
## 105 37 36 52 6 3 31 237 3 1
## 570212 570213 570301 570302 570303 570304 570305 570306 570307 570308
## 71 3 268 103 23 44 44 253 111 222
## 570309 570310 570311 570314 570315 570401 570402 570403 570404 570405
## 15 370 84 34 72 73 62 64 70 22
## 570406 570407 570408 570413 570414 570415 570416 570417 570418 590102
## 1 47 13 20 31 104 13 20 1 4
## 590103 590104 590105 590106 590108 590109 590202 590203 590204 590206
## 46 65 5 7 12 0 11 33 62 3
## 590208 590211 590301 590302 590303 590304 590305 590307 590309 590310
## 11 101 597 46 134 5 56 7 2 28
## 590311 590312 590317 590318 590319 590402 590501 590502 590504 590505
## 224 256 4 159 59 9 64 3 18 1
## 590506 590507 590512 590514 590515 590516 590517 590519 590521 590522
## 15 28 2 213 148 184 8 10 78 35
## 590523 590525 590527 590528 590531 590601 590603 710101 710102 710201
## 3 2 1 1 114 5 12 9 3 3
## 710202 710203 710301 710302 710401 710402 710501 710502 710601 710603
## 16 9 173 20 15 2 39 40 6 4
## 710604 710605 710701 710703 710704 710705 710801 710802 710803 710901
## 103 3 1 43 8 56 7 9 35 6
## 710902 711103 711201 711203 711302 711303 711304 711305 711307 711310
## 3 10 59 68 20 12 34 87 16 730
## 711311 711314 711321 711402 711405 711409 711501 711502 711601 711602
## 12 22 391 5 10 66 27 36 64 17
## 711701 711702 711801 711901 711902 712001 712102 712201 712401 712501
## 26 54 74 15 21 37 279 190 4 58
## 712502 712503 712504 712505 712601 712701 712802 712901 712902 712903
## 2 43 3 11 7 66 1 1521 2096 31
## 713001 713101 713102 713305 713901 713902 714005 714008 714010 714012
## 23 6 253 2 17 1 12 2 11 22
## 714101 714102 714601 714701 714901 715001 715002 715111 715401 715609
## 6 15 76 31 4 175 19 12 5 29
## 715701 715903 715911 716101 720101 720102 720104 720105 720106 720107
## 5 17 157 13 27 12 10 15 4 26
## 720109 720111 720113 720115 720116 720117 720118 720120 720122 720123
## 16 6 1 17 4 8 69 27 449 4
## 720124 720126 720129 720130 720131 720132 720133 720134 720135 720136
## 20 1 17 104 81 8 18 19 158 212
## 720137 720201 720202 720203 720204 720205 720207 720208 720209 720210
## 16 1 2 1 1 73 11 8 17 53
## 720211 720212 720214 720215 720216 720217 720218 720219 720221 720222
## 6 15 45 43 12 54 4 33 17 5
## 720224 720225 720226 720301 720302 720303 720304 720305 720306 720307
## 31 4 132 31 6 439 36 125 18 153
## 720308 720309 720310 720311 720312 720313 720314 720316 720317 720318
## 55 9 179 18 53 56 18 14 29 107
## 720402 720403 720404 720405 720410 720501 720502 720503 720504 720505
## 383 2 10 2 64 272 347 28 152 148
## 720506 720507 720508 720509 720510 720511 720512 720514 720515 720516
## 122 727 32 138 12 1 25 27 68 36
## 730101 730102 730103 730104 730105 730106 730107 730108 730109 730110
## 56 30 160 69 67 5 25 11 27 3
## 730111 730113 730114 730115 730117 730120 730121 730122 730125 730130
## 26 24 21 4 1 4 24 13 10 2
## 730132 730134 730135 730136 730137 730144 730145 730150 730201 730202
## 6 4 15 6 4 42 136 15 22 20
## 730203 730204 730205 730206 730207 730208 730301 730302 730303 730304
## 60 139 3 2 16 28 247 40 381 87
## 730306 730307 730309 730310 730311 730312 730313 730314 730315 730317
## 2 3 48 31 23 336 216 32 28 16
## 730319 730320 730322 730323 730326 730401 730403 730404 730415 730502
## 64 29 26 2 183 10 20 9 13 59
## 730503 730504 730505 730508 730509 730602 730603 730604 730608 730609
## 51 8 10 6 3 3 116 34 34 17
## 730610 730701 730702 730703 730704 730705 730706 730708 730709 730710
## 1 2 46 28 36 54 16 195 9 4
## 730714 730715 730716 730718 730719 730720 730801 730802 730804 730805
## 12 69 171 36 238 5 12 29 33 3
## 730901 730907 731006 731009 731010 731106 731201 731202 731301 731302
## 11 6 20 27 22 16 89 49 312 1568
## 731303 731304 731305 731307 740101 740102 740103 740104 740105 740106
## 38 108 5 24 13 19 2 104 968 97
## 740201 740202 740203 740204 740205 740206 740207 740301 740303 740304
## 6 3 1 25 30 44 35 17 22 51
## 740305 740306 740401 740402 740503 740504 740604 740605 740606 740607
## 31 257 5 11 3 9 1 4 4 20
## 740801 740802 740803 740804 740805 740806 740807 750101 750102 750103
## 25 29 21 4 459 10 202 272 52 17
## 750104 750105 750106 750202 750302 750506 750508 750510 750701 750802
## 31 3 322 29 7 33 18 44 9 12
## 750804 750807 750811 750813 750814 750902 751001 751004 751005 751101
## 1 75 19 1 38 4 10 57 2 450
## 751201 751202 751203 751204 751205 751206 751207 751208 760101 760102
## 11 111 39 6 9 43 75 1 310 8
## 760103 760104 760105 760106 760107 760108 760109 760110 760111 760112
## 483 46 404 30 300 47 199 52 179 123
## 760113 760114 760115 760116 760117 760118 760119 760120 760121 760122
## 13 29 312 294 567 101 66 42 125 19
## 760123 760124 760125 760126 760127 760128 760129 760130 760131 760132
## 26 22 21 14 26 9 4 144 40 611
## 760134 760135 760136 760137 760138 760140 760141 760142 760143 760145
## 4 1037 20 22 19 198 2 71 10 59
## 760146 760147 760148 760149 760151 760152 760153 760154 760155 760156
## 121 60 56 13 86 28 1 2 441 21
## 760157 760158 760159 760162 760163 760164 760165 760166 760167 760168
## 25 204 3 68 554 298 11 181 100 19
## 760169 760170 760171 760172 760173 760176 760178 760179 760182 760183
## 13 69 6 13 5 10 0 4 2 276
## 760184 760186 760188 760189 760190 760191 760194 760196 760201 760202
## 2 21 9 14 1 30 15 109 525 93
## 760203 760204 760205 760207 760208 760209 760210 760211 760212 760213
## 222 16 500 24 70 139 182 322 101 5
## 760214 760216 760217 760218 760219 760220 760221 760223 760224 760225
## 77 2 6 96 178 89 225 4 120 70
## 760226 760227 760228 760229 760230 760231 760232 760233 760234 760235
## 426 211 89 266 245 10 48 16 16 160
## 760301 760302 760303 760304 760305 760306 760307 760308 760402 760404
## 54 106 9 2 126 3 2 22 280 5
## 760405 760406 760409 760411 760502 760503 760504 760505 760506 760507
## 43 73 46 7 83 248 192 166 188 55
## 760508 760509 760510 760511 760512 760513 760514 760515 760516 760517
## 1 109 49 6 55 35 80 2 398 151
## 760518 760519 760520 760522 760523 760524 760525 760526 760527 760528
## 486 142 510 131 410 470 7 91 14 11
## 760529 760530 760531 760534 760535 760536 760537 760538 760539 760540
## 11 156 3 204 61 15 87 37 113 75
## 760541 760542 760543 760544 760545 760546 760548 760549 760550 760551
## 140 28 8 50 121 53 163 161 44 124
## 760552 760553 760554 760555 760556 760557 760560 760561 760562 760563
## 19 263 168 31 86 140 2 609 3 28
## 760564 760565 760569 760570 760574 760575 760576 760577 760578 760579
## 79 4 49 18 8 49 26 266 4 33
## 760580 760581 760582 760583 760584 760586 760587 760588 760589 760590
## 4 113 1 425 149 465 384 21 10 11
## 760591 760592 760593 760594 760597 760598 760599 760600 760601 760602
## 6 75 201 2 2 24 8 1 92 129
## 760603 760604 760606 760607 760608 760609 760613 760614 760616 760617
## 53 13 10 6 52 55 27 144 8 79
## 760618 760619 760620 760621 760622 760623 760624 760625 760626 760629
## 327 79 56 17 99 124 7 32 3 2
## 760630 760631 760632 760633 760634 760635 760636 760637 760638 760639
## 4 89 63 87 57 20 54 693 19 20
## 760640 760641 760642 760643 760644 760645 760646 760647 760648 760649
## 215 61 124 160 79 94 9 20 4 83
## 760650 760652 760653 760654 760655 760656 760657 760659 760661 760662
## 5 3 103 85 46 534 151 168 51 80
## 760663 760664 760668 760669 760670 760675 760677 760681 760682 760686
## 40 6 18 50 8 11 1 27 4 27
## 760687 760702 760703 760705 760706 760707 760708 760711 760716 760718
## 199 434 4 2 22 43 4 12 8 2
## 760724 760725 760726 760730 760734 760735 760736 760738 760739 760750
## 1 1 8 4 16 9 5 5 2 32
## 760752 760756 760757 760807 760809 760810 760901 760904 760906 760908
## 5 22 11 61 258 109 113 78 7 18
## 760909 760910 760912 760913 760914 760915 760916 760917 760919 760920
## 256 1 53 16 19 258 21 274 20 276
## 760922 760923 760927 760928 760929 760930 760931 760932 760933 760934
## 77 30 5 4 25 10 43 19 16 8
## 760935 760936 760938 760941 760942 760943 760944 760945 760948 760949
## 14 22 20 14 66 42 3 4 49 3
## 760950 760951 760952 760953 761002 761003 761004 761005 761006 761007
## 61 59 5 3 13 5 9 8 4 4
## 761008 761010 761011 761101 761102 761103 761104 761105 761106 761107
## 6 12 3 1316 6 30 16 1 5 18
## 761108 761109 761110 761111 761112 761113 761115 761116 761117 770107
## 3 14 2 29 33 1 13 6 16 7
## 770131 780101 780102 780103 780104 780105 780107 780109 780110 780111
## 6 16 83 12 65 3 48 4 19 45
## 780202 780205 780301 780303 780306 780401 780402 780403 780404 780405
## 30 77 10 2 23 4 3 52 40 74
## 780406 780408 780409 780501 780503 780504 780505 780506 780507 780508
## 4 4 1 38 1 50 13 36 1 35
## 780509 780510
## 1 616
save(Z, file = "Ta_Feng_1.rdata")
write.csv(Z, file = "Ta_Feng_1.csv")
aa <-read.csv('Ta_Feng_1.csv')
aa